;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
(DEFUN C:TOOLTIPSOFF ()
  (SETQ alnsrf-obj-ss (SSGET '((-4 . "<OR") (0 . "AECC_ALIGNMENT") (0 . "AECC_TIN_SURFACE") (-4 . "OR>"))))
  (vl-load-com)
  (IF alnsrf-obj-ss
    (PROGN
      (SETQ sscnt 0)
      (WHILE (< sscnt (SSLENGTH alnsrf-obj-ss))
        (SETQ ename (SSNAME alnsrf-obj-ss sscnt))
        (SETQ anobj (VLAX-ENAME->VLA-OBJECT ename)) ; for inspecting a selection
        (VLAX-PUT-PROPERTY anobj 'ShowToolTip 0)
        (SETQ sscnt (1+ sscnt))
      )
    )
  )
  (PRINC)
) ;_ end of DEFUN
(DEFUN C:TOOLTIPSON ()
  (SETQ alnsrf-obj-ss (SSGET '((-4 . "<OR") (0 . "AECC_ALIGNMENT") (0 . "AECC_TIN_SURFACE") (-4 . "OR>"))))
  (vl-load-com)
  (IF alnsrf-obj-ss
    (PROGN
      (SETQ sscnt 0)
      (WHILE (< sscnt (SSLENGTH alnsrf-obj-ss))
        (SETQ ename (SSNAME alnsrf-obj-ss sscnt))
        (SETQ anobj (VLAX-ENAME->VLA-OBJECT ename)) ; for inspecting a selection
        (VLAX-PUT-PROPERTY anobj 'ShowToolTip -1)
        (SETQ sscnt (1+ sscnt))
      )
    )
  )
  (PRINC)
) ;_ end of DEFUN
